home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tpfort12.zip / FSAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1989-11-18  |  850b  |  36 lines
  1. unit Fsample;
  2. {  This unit contains the dummy Pascal routines corresponding to the routines
  3.    in FSAMPLE.FOR
  4. }
  5. interface
  6.   uses FortLink;
  7.  
  8. procedure Eval(Fn:extval; 
  9.             var N:longint;
  10.             var X:realarray;
  11.             var Value:double);
  12. {  Evaluates a double-valued function with arguments N and an array X of length
  13.    N, and returns the answer in Value  }
  14.  
  15. function Cube(var X:double):double;
  16. {  Cubes its argument  }
  17.  
  18. const
  19.   Eval_Num = 1;     { These numbers are the positions of EVAL and CUBE in }
  20.   Cube_Num = 2;     { the Fortran call to CALLTP                          }
  21.  
  22. implementation
  23.  
  24. procedure Eval;
  25. begin
  26.   CallFort(Eval_Num);  { This is a procedure, so it uses CallFort }
  27. end;
  28.  
  29. function Cube;
  30. begin
  31.   FDouble(Cube_Num);   { This is a function:double, so it uses FDouble }
  32. end;
  33.  
  34. end.
  35.  
  36.